home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / misc / emu / DiaryConv.lha / DiaryConv.bas < prev    next >
BASIC Source File  |  1998-01-14  |  2KB  |  85 lines
  1. WINDOW 1,"Z88 Diary Converter",(40,100)-(600,150),23
  2. WIDTH 73
  3. a$=SPACE$(255)
  4. b$=" "
  5. a=0
  6. b=0
  7.  
  8. month=1
  9. day$=SPACE$(20)
  10.  
  11. DIM months$(12)
  12. DIM days$(7)
  13.  
  14. INPUT "Enter name of file to be processed: [RAM:Diary.txt] ", in$
  15. IF in$="" THEN in$="RAM:Diary.txt"                                     
  16. OPEN in$ FOR INPUT AS 1
  17. INPUT " Enter name of file to produce: [DF0:Z88/Diary.txt] ", out$
  18. IF out$="" THEN out$= "DF0:Z88/Diary.txt"
  19. OPEN out$ FOR OUTPUT AS 2
  20.  
  21. FOR a=1 TO 12
  22.  READ months$(a)
  23. NEXT
  24. FOR a=1 TO 7
  25.  READ days$(a)
  26. NEXT
  27. FOR a=1 TO 2
  28.   b$=""
  29.   WHILE b$<>CHR$(10) AND NOT EOF(1)
  30.     b$=INPUT$(1,1)
  31.   WEND
  32. NEXT
  33. WHILE NOT EOF (1)
  34.   a$=""
  35.   b$=""
  36.   WHILE b$<>CHR$(10) AND NOT EOF(1)
  37.     b$=INPUT$(1,1)
  38.     IF b$<>CHR$(10) THEN a$=a$+b$
  39.   WEND
  40.   IF LEFT$(a$,3)="   " THEN
  41.     PRINT#2, a$
  42.   ELSE                      
  43.     REM Check for month.
  44.     a=1
  45.     b=0
  46.     WHILE a<13 AND b=0
  47.       IF LEFT$ (a$,LEN(months$(a)))=months$(a) THEN
  48.         b=a
  49.       END IF
  50.       a=a+1
  51.     WEND
  52.     IF b>0 THEN
  53.       month=b
  54.       year$=MID$ (a$, LEN(months$(b))+2)
  55.       PRINT CHR$(8)
  56.       PRINT
  57.       PRINT ">>>Processing ";months$(month);" ";year$
  58.       PRINT "_";
  59.       a$=""
  60.     END IF
  61.     REM Check for day.
  62.     a=1
  63.     b=0
  64.     WHILE a<8 AND b=0
  65.      IF MID$(a$,4)=days$(a) THEN
  66.         day$=LEFT$(a$,2)
  67.         b=VAL(day$)
  68.         IF b<10 THEN day$=LEFT$(day$,1)
  69.         PRINT CHR$(8);" ";day$;"_";
  70.       END IF
  71.       a=a+1
  72.     WEND
  73.     IF b>0 THEN
  74.       a$="%"+day$+"/"+RIGHT$(STR$(month),LEN(STR$(month))-1)+"/"+year$
  75.     END IF
  76.     IF a$<>"" THEN PRINT#2, a$
  77.   END IF
  78. WEND  
  79. PRINT CHR$(8)
  80. CLOSE 2
  81. CLOSE 1
  82. SYSTEM
  83. DATA "January","February","March","April","May", "June", "July", "August", "September", "October", "November", "December"
  84. DATA "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"
  85.